home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / prog_c / tpchal_1.zip / RBS_0.C0 < prev    next >
Text File  |  1994-05-20  |  1KB  |  40 lines
  1. #include <stdio.h>
  2.  
  3. main()
  4. {
  5.       unsigned cnt = 0, posn;
  6.       unsigned long n, div;
  7.  
  8.       for (cnt = 0, n = 100000008L, posn = 2, div = 10000000L;
  9.             posn < 10 && n < 1000000000L;
  10.             ++posn, div /= 10)
  11.       {
  12.             unsigned long x, N;
  13.             int i, used;
  14.  
  15.             if ((0L != (x = ((n / div) % posn))) || (0L == ((n / div) % 10)))
  16.             {
  17.                   n += (posn - x) * div;
  18.                   n -= n % div;
  19.                   posn = 1;
  20.                   div = 100000000L;
  21.                   continue; 
  22.             }
  23.             used = -1;
  24.             for (i = 0, N = n; i < 9; ++i, N /= 10)
  25.             {
  26.                   int d = N % 10;
  27.  
  28.                   if (!d)
  29.                         goto NEXT_N;
  30.                   if (used & (1 << d))
  31.                         used &= ~(1 << d);
  32.                   else  goto NEXT_N;
  33.             }
  34.             printf("%4d: Number = %lu\n", ++cnt, n);
  35.             break;
  36. NEXT_N:     n += 9;
  37.       }
  38.       return 0;
  39. } 
  40.